home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Venus & Mercury.gt5 < prev   
Encoding:
Text File  |  2003-08-15  |  6.1 KB  |  192 lines
  1. '---- standard prologue
  2. OpenWorkspace "Ven_Mer.ws5"
  3. Set wnd = getWindow(1)
  4. wnd.MDIWindow.State = SW_MAXIMIZE
  5.  
  6. Set Camera = wnd.camera
  7. Set theTime = camera.time
  8. Set Direction = camera.Direction
  9. Set Location = camera.Location
  10. Set flt = wnd.Filters
  11. '---- end standard prologue'
  12. ' Location.SetLocParams 0, 2, 2
  13.  Set obj_l = Location.CentralObject
  14.  set obj_d=Direction.Object
  15. ' obj_l.ObjectType=&H706C6E74
  16. ' obj_l.ObjectID = 3
  17. ' Location.CentralObject=obj_l
  18. ' Location.Longitude = 6.28173086613617E+000
  19. ' Location.Lattitude = 6.10865238197997E-001
  20. ' Direction.Ra = 5.24035107911282E+000
  21. ' Direction.Dek = 2.08275957404650E-001
  22. ' Direction.Zoom = 1.20000000000000E+000
  23. ' theTime.mode = 1
  24. ' theTime.JDstr = "2444391.29167"
  25. ' theTime.TimeZone = 0.00000000000000E+000
  26. ' theTime.Units = 3
  27. ' theTime.step = 2.00000000000000E+000
  28. set pl =PlayerWindow
  29. pl.top=0
  30. pl.left=0
  31. set txt = CreateTextWindow
  32. txt.LoadFile "Ven_Mer1.html"
  33. 'txt.Locate 370,0,450,130
  34. txt.Locate Screen.width-430,0,450,130
  35. txt.Show
  36. settimemark
  37.  theTime.Forward
  38.  WaitFrames 100 : theTime.Stop
  39.  pause 1000
  40. waitfortime 18000
  41. txt.LoadFile "Ven_Mer2.html"
  42. txt.Locate Screen.width-430,0,450,100
  43. waitfortime 8000
  44. txt.LoadFile "Ven_Mer2_1.html"
  45. txt.Locate Screen.width-430,0,450,85
  46.  obj_d.objectType = &H706C6E74
  47.  obj_d.objectID = 1
  48.  Direction.Object=obj_d
  49.  Direction.lock = 1 : UpdateWindows
  50.  Direction.Zoom = 5.00000000000000E+000 : UpdateWindows
  51. pause 1000
  52.  Direction.Zoom = 1.00000000000000E+001 : UpdateWindows
  53. pause 1000
  54.  Direction.Zoom = 2.00000000000000E+001 : UpdateWindows
  55. pause 1000
  56.  flt.objects.planets.Label(1)= False : UpdateWindows
  57.  Direction.Zoom = 1.00000000000000E+002 : UpdateWindows
  58. pause 1000
  59.  Direction.Zoom = 5.00000000000000E+002 : UpdateWindows
  60. pause 1000
  61.  Direction.Zoom = 8.00000000000000E+002 : UpdateWindows
  62. pause 1000
  63.  Direction.Zoom = 1.00000000000000E+003 : UpdateWindows
  64. pause 1000
  65.  Direction.Zoom = 2.00000000000000E+003 : UpdateWindows
  66. pause 1000
  67.  Direction.Zoom = 3.00000000000000E+003 : UpdateWindows
  68. pause 1000
  69.  Direction.Zoom = 4.00000000000000E+003 : UpdateWindows
  70.  pause 2000
  71. waitfortime 5000
  72. txt.LoadFile "Ven_Mer3.html"
  73.  Direction.Zoom = 1.00000000000000E+000 : UpdateWindows
  74.  flt.objects.planets.Label(1)= True
  75.  obj_d.objectType = &H706C6E74
  76.  obj_d.objectID = 2
  77.  Direction.Object=obj_d
  78.  Direction.lock = 1
  79.  Direction.Zoom = 1.00000000000000E+001 : UpdateWindows
  80. pause 1000
  81.  Direction.Zoom = 1.00000000000000E+002 : UpdateWindows
  82. pause 1000
  83.  flt.objects.planets.Label(2)= False : UpdateWindows
  84.  Direction.Zoom = 2.50000000000000E+002 : UpdateWindows
  85. pause 1000
  86.  Direction.Zoom = 5.00000000000000E+002 : UpdateWindows
  87. pause 1000
  88.  Direction.Zoom = 1.00000000000000E+003 : UpdateWindows
  89.  pause 2000
  90. waitfortime 3000
  91. txt.LoadFile "Ven_Mer4.html"
  92. txt.Locate Screen.width-430,0,450,100
  93.  Direction.Zoom = 1.00000000000000E+000 : UpdateWindows
  94.  flt.objects.planets.Label(2)= True
  95.  flt.objects.moons.Label(301)= False
  96.  obj_d.objectType = &H706C6E74
  97.  obj_d.objectID = 10
  98.  Direction.Object=obj_d
  99.  Direction.lock = 1
  100.  Location.SetLocParams 3, 0, 0
  101. pause 4000
  102.  Location.Longitude = 4.36332312998569E+000
  103.  Location.Lattitude = 6.98131700797711E-001 : UpdateWindows
  104.  Location.DistUnits = 3
  105.  Direction.Zoom = 1.00000000000000E+000
  106.  Location.Longitude = 4.36332312998569E+000
  107.  Location.Lattitude = 6.98131700797711E-001
  108. ' Location.Distance = 1.00000000000000E+000 : UpdateWindows
  109. 'pause 1000
  110. ' Location.Distance = 5.00000000000000E+000 : UpdateWindows
  111. 'pause 1000
  112.  Location.Distance = 1.00000000000000E+001 : UpdateWindows
  113. pause 1000
  114.  Location.Distance = 2.00000000000000E+001 : UpdateWindows
  115. pause 1000
  116.  flt.objects.planets.Orbit(1)= True
  117.  flt.objects.planets.Orbit(2)= True
  118.  flt.objects.planets.Orbit(3)= True : UpdateWindows
  119.  Location.Distance = 5.00000000000000E+001 : UpdateWindows
  120. pause 1000
  121.  Location.Distance = 1.00000000000000E+002 : UpdateWindows
  122. pause 1000
  123.  Location.Distance = 1.50000000000000E+002 : UpdateWindows
  124. pause 1000
  125.  Location.Distance = 2.00000000000000E+002 : UpdateWindows
  126. pause 1000
  127.  Location.Distance = 2.50000000000000E+002 : UpdateWindows
  128. pause 1000
  129.  Location.Distance = 3.00000000000000E+002 : UpdateWindows
  130. pause 1000
  131.  Location.Distance = 3.50000000000000E+002 : UpdateWindows
  132. pause 1000
  133.  Location.Distance = 4.00000000000000E+002 : UpdateWindows
  134. waitfortime 7000
  135. txt.LoadFile "Ven_Mer5.html"
  136. waitfortime 9000
  137. txt.LoadFile "Ven_Mer6.html"
  138.  theTime.Units = 1
  139.  theTime.step = 2.00000000000000E+000
  140.  theTime.Forward
  141.  WaitFrames 50 : theTime.Stop
  142. waitfortime 9000
  143. txt.LoadFile "Ven_Mer7.html"
  144.  flt.objects.planets.Orbit(1)= False
  145.  flt.objects.planets.Orbit(2)= False
  146.  flt.objects.planets.Orbit(3)= False
  147.  Direction.lock = 0
  148.  Location.SetLocParams 0, 2, 2
  149.  Location.Longitude = 6.28173086613617E+000
  150.  Location.Lattitude = 6.10865238197997E-001
  151.  obj_l.ObjectType=&H706C6E74
  152.  obj_l.ObjectID = 3
  153.  Location.CentralObject=obj_l
  154.  Location.Longitude = 6.28173086613617E+000
  155.  Location.Lattitude = 6.10865238197997E-001
  156.  theTime.mode = 0
  157.  theTime.TimeZone = 0.00000000000000E+000
  158.  theTime.JDstr = "2444530.63125"
  159.  theTime.Units = 3
  160.  Direction.Zoom = 1.00000000000000E+001
  161.  theTime.step = 2.0000000000000E+000
  162.  Direction.Ra = 1.42826110454865E+000
  163.  Direction.Dek = 1.74532925199428E-002 : UpdateWindows
  164.  Direction.Zoom = 1.00000000000000E+001 : UpdateWindows
  165. ' theTime.Forward
  166. ' WaitFrames 27 : theTime.Stop
  167.  obj_d.objectType = &H706C6E74
  168.  obj_d.objectID = 2
  169.  Direction.Object=obj_d
  170.  Direction.lock = 1
  171.  Direction.Zoom = 1.00000000000000E+001 : UpdateWindows
  172.  Direction.Zoom = 5.00000000000000E+001 : UpdateWindows
  173. pause 1000
  174.  Direction.Zoom = 1.00000000000000E+002 : UpdateWindows
  175. pause 1000
  176.  Direction.Zoom = 5.00000000000000E+002 : UpdateWindows
  177. pause 1000
  178.  Direction.Zoom = 8.00000000000000E+002 : UpdateWindows
  179. pause 1000
  180.  Direction.Zoom = 1.00000000000000E+003 : UpdateWindows
  181. pause 1000
  182.  flt.objects.planets.Label(2)= False
  183.  Direction.Zoom = 2.00000000000000E+003 : UpdateWindows
  184. pause 1000
  185.  Direction.Zoom = 3.00000000000000E+003 : UpdateWindows
  186. pause 1000
  187.  Direction.Zoom = 4.00000000000000E+003 : UpdateWindows
  188. pause 1000
  189. txt.Close
  190. ' end recording
  191.  
  192.